home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 17 / CU Amiga Magazine's Super CD-ROM 17 (1997)(EMAP Images)(GB)[!][issue 1997-12].iso / CUCD / Programming / Gui4Cli / Docs / Tutorials / Area.gc next >
Encoding:
Gui4CLI script  |  1980-01-03  |  2.0 KB  |  78 lines
  1. G4C
  2.  
  3. WinBig -1 -1 450 150 "Area.gc"
  4. WinType 11110001
  5.  
  6.  
  7. BOX 0 0 0 0 OUT RIDGE
  8.  
  9. ; ---- These squares were used for planning the layout. If you want
  10. ;      to see them, remove the ';' at the beginning of each line.
  11. ;SQUARE 50 30 106 30 2 NOFILL
  12. ;SQUARE 160 30 106 30 2 NOFILL
  13. ;SQUARE 270 30 106 30 2 NOFILL
  14. ;SQUARE 50 62 106 30 2 NOFILL
  15. ;SQUARE 160 62 106 30 2 NOFILL
  16. ;SQUARE 270 62 106 30 2 NOFILL
  17. ;SQUARE 50 94 106 30 2 NOFILL
  18. ;SQUARE 160 94 106 30 2 NOFILL
  19. ;SQUARE 270 94 106 30 2 NOFILL
  20.  
  21. xonLoad 
  22. GuiOpen Area.gc
  23.  
  24. xonClose
  25. GuiQuit Area.gc
  26.  
  27. ; ---- Header text, and nine prompt words in required position.
  28.  
  29. Text 100 12 210 12 'Which area is clicked on?' 265 BOX
  30. Text 80 40 10 12 'Click' 6 NOBOX
  31. Text 190 40 10 12 'near' 6 NOBOX
  32. Text 294 40 10 12 'any' 4 NOBOX
  33. Text 86 72 10 12 'one' 4 NOBOX
  34. Text 190 72 10 12 'of' 3 NOBOX
  35. Text 290 72 10 12 'these' 6 NOBOX
  36. Text 80 102 10 12 'nine' 5 NOBOX
  37. Text 170 102 10 12 'displayed' 10 NOBOX
  38. Text 290 102 10 12 'words' 6 NOBOX
  39.  
  40. ; ---- Text to confirm which area clicked, and its visible effect
  41.  
  42. Text 40 130 100 12 '    Watch here, and observe the differences'  47 NOBOX
  43. gadid 1 
  44.  
  45. ; ---- Here are the nine xArea commands.  As each area is
  46. ;      clicked, gadget 1 is updated for confirmation.
  47.  
  48. ; ---- Arguments for xArea :
  49. ;      L  T  W  H  Effect (Complement, Box, or None)
  50.  
  51. xArea 50 30 106 30 COMP
  52. Update Area.gc 1 'You clicked Upper left.  Effect : Complement'
  53.  
  54. xArea 160 30 106 30 BOX
  55. Update Area.gc 1 'You clicked Upper centre.  Effect : Box'
  56.  
  57. xArea 270 30 106 30 NONE
  58. Update Area.gc 1 'You clicked Upper right.  Effect : NONE'
  59.  
  60. xArea 50 62 106 30 NONE
  61. Update Area.gc 1 'You clicked Middle left.  Effect : NONE'
  62.  
  63. xArea 160 62 106 30 COMP
  64. Update Area.gc 1 'You clicked Middle centre.  Effect : Complement'
  65.  
  66. xArea 270 62 106 30 BOX
  67. Update Area.gc 1 'You clicked Middle right.  Effect : Box'
  68.  
  69. xArea 50 94 106 30 BOX
  70. Update Area.gc 1 'You clicked Lower left.  Effect : Box'
  71.  
  72. xArea 160 94 106 30 NONE
  73. Update Area.gc 1 'You clicked Lower centre.  Effect : NONE'
  74.  
  75. xArea 270 94 106 30 COMP
  76. Update Area.gc 1 'You clicked Lower right.  Effect : Complement'
  77.  
  78.